home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / YESORNO.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-06-29  |  2.5 KB  |  60 lines
  1. 5  CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***********************   YES/NO <Y/N> SUBROUTINE   ***********************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN            YES/NO SUBROUTINE USING INKEY$ & QUALIFIERS                  OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN     This program will assign a value of Q=1 or Q=2 to the response      OPEN
  7. 24  'OPEN (Y or y) or (N or n). The value is returned to the main program and     OPEN
  8. 26  'OPEN may be used as the condition for a subsequent command or function.      OPEN
  9. 27  'OPEN                                                                         OPEN
  10. 28  'OPEN     Lines 5020 and 5030 demonstrate the optional method of testing the  OPEN
  11. 30  'OPEN response by "CHR$(xx)" or by the literal string (Y,y,N,or n). Either    OPEN
  12. 32  'OPEN conditional qualifier may be used effectively. Take your choice. Use    OPEN
  13. 34  'OPEN GOSUB from your main program and assign program tasks using the value   OPEN
  14. 38  'OPEN of "Q" returned.         (c) G I N A C O              Ver 5.2/160/320   OPEN
  15. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  16. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  17. 57  ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 ======
  18. 60  CLS
  19. 100  CLS
  20. 110  SCREEN 0,0,0
  21. 120  WIDTH 80
  22. 130  CLEAR
  23. 140  COLOR 7,0
  24. 150  KEY OFF
  25. 160  '************   GOSUB FROM MAIN PROGRAM TO Y/N SUBROUTINE  ****************
  26. 170  GOSUB 5000
  27. 180  CLS
  28. 190  IF Q! = 1 THEN LOCATE 10,30 : PRINT "RESPONSE WAS " CHR$(34)"Y or y" CHR$(34) ;: LOCATE 12,30 : PRINT "PRESS <F2> TO RUN AGAIN";: END
  29. 200  CLS
  30. 210  IF Q! = 2 THEN LOCATE 10,30 : PRINT "RESPONSE WAS " CHR$(34)"N or n" CHR$(34);: LOCATE 12,30 : PRINT "PRESS <F2> TO RUN AGAIN";: END
  31. 5000  REM  **************   YES/NO ROUTINE FOR MERGE  ********************
  32. 5010  COLOR 7,0
  33. 5020  KEY OFF
  34. 5030  LOCATE 25,32
  35. 5040  PRINT " YES OR NO <Y/N>  ";A$
  36. 5050  COLOR 7,0
  37. 5060  
  38. 5070  A$ = INKEY$
  39. 5080  IF A$ = "" THEN 5070
  40. 5090  REM  ********** QUALIFYING RESPONSE AS CHR$ OR STRING **************
  41. 5100  IF ( LEFT$(A$,1) = CHR$(89) OR LEFT$(A$,1) = CHR$(121)) THEN Q! = 1 : GOTO 5250
  42. 5110  IF ( LEFT$(A$,1) = "n" OR LEFT$(A$,1) = "N") THEN Q! = 2 : GOTO 5250
  43. 5120  SOUND 500,4
  44. 5130  REM  *********** CLEARING LINE 25 AND REVERSING FIELD **************
  45. 5140  LOCATE 25,15
  46. 5150  PRINT SPC( 79)
  47. 5160  LOCATE 25,35
  48. 5170  COLOR 0,7
  49. 5180  PRINT SPC( 12);
  50. 5190  LOCATE 25,36
  51. 5200  PRINT " TRY AGAIN. ";
  52. 5210  COLOR 7,0
  53. 5220  FOR I! = 1 TO 1000
  54. 5230  NEXT
  55. 5240  GOTO 5000
  56. 5250  RETURN
  57. 5260  END
  58. 65000  REM   ******************* SAVE ROUTINE ****************************
  59. 65100  SAVE "B:YESORNO.BAS"
  60.